object CommunionEditForm: TCommunionEditForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22242#22865#23567#32452#32534#36753
  ClientHeight = 433
  ClientWidth = 669
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 669
    Height = 171
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 48
      Height = 13
      Caption = #23567#32452#21517#31216
      FocusControl = dbedtName
    end
    object Label2: TLabel
      Left = 448
      Top = 16
      Width = 48
      Height = 13
      Caption = #25104#31435#26102#38388
    end
    object Label4: TLabel
      Left = 448
      Top = 48
      Width = 48
      Height = 13
      Caption = #36127#36131#21516#24037
    end
    object Label3: TLabel
      Left = 16
      Top = 48
      Width = 48
      Height = 13
      Caption = #25104#31435#23447#26088
      FocusControl = DBEdit2
    end
    object Label5: TLabel
      Left = 16
      Top = 80
      Width = 48
      Height = 13
      Caption = #31616#12288#12288#21490
      FocusControl = DBMemo1
    end
    object Label6: TLabel
      Left = 16
      Top = 144
      Width = 48
      Height = 13
      Caption = #22791#12288#12288#27880
      FocusControl = DBEdit3
    end
    object dbedtName: TDBEdit
      Left = 70
      Top = 13
      Width = 350
      Height = 21
      DataField = 'Name'
      DataSource = dsCommunion
      TabOrder = 0
    end
    object cxDBDateEdit1: TcxDBDateEdit
      Left = 502
      Top = 13
      DataBinding.DataField = 'SetUpDate'
      DataBinding.DataSource = dsCommunion
      Style.LookAndFeel.Kind = lfFlat
      StyleDisabled.LookAndFeel.Kind = lfFlat
      StyleFocused.LookAndFeel.Kind = lfFlat
      StyleHot.LookAndFeel.Kind = lfFlat
      TabOrder = 1
      Width = 150
    end
    object cxDBLookupComboBox1: TcxDBLookupComboBox
      Left = 502
      Top = 45
      DataBinding.DataField = 'ServerStationID'
      DataBinding.DataSource = dsCommunion
      Properties.DropDownWidth = 200
      Properties.KeyFieldNames = 'BelieveID'
      Properties.ListColumns = <
        item
          FieldName = 'BelieveName'
        end
        item
          FieldName = 'BelieveSex'
        end
        item
          FieldName = 'ServeStationName'
        end>
      Properties.ListSource = dsVServeStation
      Style.LookAndFeel.Kind = lfFlat
      StyleDisabled.LookAndFeel.Kind = lfFlat
      StyleFocused.LookAndFeel.Kind = lfFlat
      StyleHot.LookAndFeel.Kind = lfFlat
      TabOrder = 3
      Width = 150
    end
    object DBEdit2: TDBEdit
      Left = 70
      Top = 45
      Width = 350
      Height = 21
      DataField = 'Aim'
      DataSource = dsCommunion
      TabOrder = 2
    end
    object DBMemo1: TDBMemo
      Left = 70
      Top = 77
      Width = 582
      Height = 52
      DataField = 'History'
      DataSource = dsCommunion
      TabOrder = 4
    end
    object DBEdit3: TDBEdit
      Left = 70
      Top = 140
      Width = 582
      Height = 21
      DataField = 'Remark'
      DataSource = dsCommunion
      TabOrder = 5
    end
  end
  object pnlButtom: TPanel
    Left = 0
    Top = 392
    Width = 669
    Height = 41
    Align = alBottom
    TabOrder = 2
    object btnSave: TBitBtn
      Left = 257
      Top = 6
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      TabOrder = 0
      OnClick = btnSaveClick
    end
    object btnClose: TBitBtn
      Left = 341
      Top = 6
      Width = 75
      Height = 25
      Caption = #36820#22238'(&C)'
      TabOrder = 1
      OnClick = btnCloseClick
    end
  end
  object cxgrdCommunion: TcxGrid
    Left = 0
    Top = 171
    Width = 669
    Height = 221
    Align = alClient
    TabOrder = 1
    object cxgrdtvCommunion: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = False
      NavigatorButtons.PriorPage.Visible = False
      NavigatorButtons.Prior.Visible = False
      NavigatorButtons.Next.Visible = False
      NavigatorButtons.NextPage.Visible = False
      NavigatorButtons.Last.Visible = False
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = True
      NavigatorButtons.Edit.Visible = True
      NavigatorButtons.Post.Visible = True
      NavigatorButtons.Cancel.Visible = True
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataSource = dsCommunionDetail
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.GoToNextCellOnEnter = True
      OptionsBehavior.FocusCellOnCycle = True
      OptionsData.Appending = True
      OptionsView.Navigator = True
      object cxgrdtvCommunionBelieveID: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'Name'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsBelieve
        Width = 80
      end
      object cxgrdtvCommunionBelieveName: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveName'
        Options.Editing = False
        Options.Focusing = False
        Width = 62
      end
      object cxgrdtvCommunionBelieveSex: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveSex'
        Options.Editing = False
        Options.Focusing = False
        Width = 50
      end
      object cxgrdtvCommunionBelieveIDCard: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveIDCard'
        Options.Editing = False
        Options.Focusing = False
        Width = 85
      end
      object cxgrdtvCommunionBelieveBirthDay: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveBirthDay'
        Options.Editing = False
        Options.Focusing = False
        Width = 75
      end
      object cxgrdtvCommunionBelieveMobile: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveMobile'
        Options.Editing = False
        Options.Focusing = False
        Width = 88
      end
      object cxgrdtvCommunionBelieveEducation: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveEducation'
        Options.Editing = False
        Options.Focusing = False
        Width = 87
      end
      object cxgrdtvCommunionBelieveJob: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveJob'
        Options.Editing = False
        Options.Focusing = False
        Width = 79
      end
      object cxgrdtvCommunionBelieveServeType: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveServeType'
        Options.Editing = False
        Options.Focusing = False
        Width = 92
      end
      object cxgrdtvCommunionBelieveMarrige: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveMarrige'
        Options.Editing = False
        Options.Focusing = False
        Width = 69
      end
      object cxgrdtvCommunionBelieveHobby: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveHobby'
        Options.Editing = False
        Options.Focusing = False
        Width = 96
      end
      object cxgrdtvCommunionBelieveBaptism: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveBaptism'
        Options.Editing = False
        Options.Focusing = False
        Width = 67
      end
      object cxgrdtvCommunionBelieveSpirtualStation: TcxGridDBColumn
        DataBinding.FieldName = 'BelieveSpirtualStation'
        Options.Editing = False
        Options.Focusing = False
        Width = 62
      end
      object cxgrdtvCommunionRemark: TcxGridDBColumn
        DataBinding.FieldName = 'Remark'
        Width = 120
      end
    end
    object cxgrdlvCommunion: TcxGridLevel
      GridView = cxgrdtvCommunion
    end
  end
  object cdsCommunion: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 65
    Top = 357
    object cdsCommunionName: TWideStringField
      DisplayLabel = #23567#32452#21517#31216
      FieldName = 'Name'
      Size = 50
    end
    object cdsCommunionSetUpDate: TDateTimeField
      DisplayLabel = #25104#31435#26102#38388
      FieldName = 'SetUpDate'
    end
    object cdsCommunionAim: TWideStringField
      DisplayLabel = #25104#31435#23447#26088
      FieldName = 'Aim'
      Size = 250
    end
    object cdsCommunionServerStationID: TWideStringField
      DisplayLabel = #36127#36131#21516#24037
      FieldName = 'ServerStationID'
      Size = 50
    end
    object cdsCommunionHistory: TWideMemoField
      DisplayLabel = #31616#21490
      FieldName = 'History'
      BlobType = ftWideMemo
    end
    object cdsCommunionRemark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 250
    end
  end
  object dsCommunion: TDataSource
    DataSet = cdsCommunion
    Left = 98
    Top = 357
  end
  object cdsCommunionDetail: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 301
    Top = 353
    object cdsCommunionDetailCommunionName: TWideStringField
      DisplayLabel = #23567#32452#21517#31216
      FieldName = 'CommunionName'
      Size = 50
    end
    object cdsCommunionDetailBelieveID: TWideStringField
      DisplayLabel = #20449#24466#32534#21495
      FieldName = 'BelieveID'
      Size = 50
    end
    object cdsCommunionDetailBelieveName: TStringField
      DisplayLabel = #22995#21517
      FieldKind = fkLookup
      FieldName = 'BelieveName'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveSex: TStringField
      DisplayLabel = #24615#21035
      FieldKind = fkLookup
      FieldName = 'BelieveSex'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'Sex'
      LookupResultField = 'Sex'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveIDCard: TStringField
      DisplayLabel = #36523#20221#35777
      FieldKind = fkLookup
      FieldName = 'BelieveIDCard'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'IDCard'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveBirthDay: TDateField
      DisplayLabel = #20986#29983#26085#26399
      FieldKind = fkLookup
      FieldName = 'BelieveBirthDay'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'BirthDay'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveMobile: TStringField
      DisplayLabel = #20449#24466#25163#26426
      FieldKind = fkLookup
      FieldName = 'BelieveMobile'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'Mobile'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveEducation: TStringField
      DisplayLabel = #20449#24466#23398#21382
      FieldKind = fkLookup
      FieldName = 'BelieveEducation'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'EducationName'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveJob: TStringField
      DisplayLabel = #20449#24466#32844#19994
      FieldKind = fkLookup
      FieldName = 'BelieveJob'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'JobName'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveServeType: TStringField
      DisplayLabel = #20365#22857#31867#22411
      FieldKind = fkLookup
      FieldName = 'BelieveServeType'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'ServeTypeName'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveMarrige: TStringField
      DisplayLabel = #23130#23035#24773#20917
      FieldKind = fkLookup
      FieldName = 'BelieveMarrige'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'MarrigeName'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveHobby: TStringField
      DisplayLabel = #20449#24466#29233#22909
      FieldKind = fkLookup
      FieldName = 'BelieveHobby'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'HobbyName'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveBaptism: TStringField
      DisplayLabel = #21463#27927#24773#20917
      FieldKind = fkLookup
      FieldName = 'BelieveBaptism'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'Baptism'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailBelieveSpirtualStation: TStringField
      DisplayLabel = #23646#28789#24773#20917
      FieldKind = fkLookup
      FieldName = 'BelieveSpirtualStation'
      LookupDataSet = cdsVBelieve
      LookupKeyFields = 'ID'
      LookupResultField = 'SpiritualStation'
      KeyFields = 'BelieveID'
      Lookup = True
    end
    object cdsCommunionDetailRemark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 250
    end
  end
  object dsCommunionDetail: TDataSource
    DataSet = cdsCommunionDetail
    Left = 333
    Top = 353
  end
  object cdsVBelieve: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 272
    object cdsVBelieveID: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      Size = 50
    end
    object cdsVBelieveName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
      Size = 50
    end
    object cdsVBelieveSex: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 50
    end
    object cdsVBelieveIDCard: TWideStringField
      DisplayLabel = #36523#20221#35777
      FieldName = 'IDCard'
      Size = 50
    end
    object cdsVBelieveBirthDay: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'BirthDay'
    end
    object cdsVBelieveMobile: TWideStringField
      DisplayLabel = #25163#26426
      FieldName = 'Mobile'
      Size = 50
    end
    object cdsVBelieveEducationName: TWideStringField
      DisplayLabel = #23398#21382
      FieldName = 'EducationName'
      Size = 100
    end
    object cdsVBelieveJobName: TWideStringField
      DisplayLabel = #32844#19994
      FieldName = 'JobName'
      Size = 100
    end
    object cdsVBelieveServeTypeName: TWideStringField
      DisplayLabel = #20365#22857#31867#22411
      FieldName = 'ServeTypeName'
      Size = 100
    end
    object cdsVBelieveMarrigeName: TWideStringField
      DisplayLabel = #23130#23035#24773#20917
      FieldName = 'MarrigeName'
      Size = 100
    end
    object cdsVBelieveHobbyName: TWideStringField
      DisplayLabel = #29233#22909#29305#38271
      FieldName = 'HobbyName'
      Size = 100
    end
    object cdsVBelieveBaptism: TWideStringField
      DisplayLabel = #21463#27927#24773#20917
      FieldName = 'Baptism'
      Size = 50
    end
    object cdsVBelieveSpiritualStation: TWideStringField
      DisplayLabel = #23646#28789#29366#24577
      FieldName = 'SpiritualStation'
      Size = 50
    end
  end
  object dsBelieve: TDataSource
    DataSet = cdsVBelieve
    Left = 151
    Top = 272
  end
  object cdsVServeStation: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 304
    object cdsVServeStationBelieveID: TWideStringField
      FieldName = 'BelieveID'
      Size = 50
    end
    object cdsVServeStationServeStationName: TWideStringField
      DisplayLabel = #20365#22857#23703#20301
      FieldName = 'ServeStationName'
      Size = 100
    end
    object cdsVServeStationBelieveName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'BelieveName'
      Size = 50
    end
    object cdsVServeStationBelieveSex: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'BelieveSex'
      Size = 50
    end
  end
  object dsVServeStation: TDataSource
    DataSet = cdsVServeStation
    Left = 152
    Top = 304
  end
end
